vmstatus exch sub = pop flush

(temp/font) (w) file /dskfile exch def /str 4096 string def {currentfile str readstring exch dskfile exch writestring {} {dskfile closefile exit} ifelse} loop

0 serverdict begin exitserver

serverdict begin 0 exitserver statusdict begin 0 1 initializedisk 20 setuserdiskpercent end

(%cartridge1%fonts/*) {dup length 18 sub 18 exch getinterval ==} 200 string filenameforall

(%disk%fonts/*) {dup length 12 sub 12 exch getinterval ==} 200 string filenameforall

/str 100 string def FontDirectory {pop str cvs == flush} forall

statusdict begin (%t%) = statusdict /diskstatus known {statusdict /diskonline known {diskonline{(%a%) =}if}{(%m%) =}ifelse diskstatus 0 gt {(%i%) =} if pop}if statusdict /cartstatus known {(%cartridge1%) cartstatus {(%c%) = pop pop pop} if} if flush end